package com.abysscore.yachtdesign.view;

public class TFreeControlPointForm extends TForm{
/*
 * Edit1: TEdit;
                                    Label1: TLabel;
                                    Edit2: TEdit;
                                    Edit3: TEdit;
                                    Label2: TLabel;
                                    Label3: TLabel;
                                    CheckBox1: TCheckBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
                                    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
                                    procedure Edit1Exit(Sender: TObject);
                                    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
                                    procedure Edit2Exit(Sender: TObject);
                                    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
                                    procedure Edit3Exit(Sender: TObject);
                                    procedure CheckBox1MouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
                                 private  { Private declarations }
                                    FActiveControlPoint  : TFreeSubdivisionControlPoint;
                                    FFreeShip            : TComponent;
                                    procedure FSetActiveControlPoint(Val:TFreeSubdivisionControlPoint);
                                 public   { Public declarations }
                                    property ActiveControlPoint   : TFreeSubdivisionControlPoint read FActiveControlPoint write FSetActiveControlPoint;
                                    property FreeShip             : TComponent read FFreeShip write FFreeShip;
                              end;
 */
}
